HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/BUS/エクスプレス住所録2.5 folde.sit/エクスプレス住所録2.5 folder/エクスプレス住所録2.5-1/スタック管理/stack.txt

Text File | 1995-09-02 | 16KB | 411 lines

-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=64, y1=75, x2=576, y2=417)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2377
-- card count: 1
-- first card id: 2718
-- list block id: 2088
-- print block id: 3045
-- font table block id: 6158
-- style table block id: 4802
-- free block count: 0
-- free size: 0 bytes
-- total size: 18656 bytes
-- stack block size: 13312 bytes
-- created by hypercard version: 0x01222013
-- compacted by hypercard version: 0x02218000
-- modified by hypercard version: 0x02218000
-- opened by hypercard version: 0x02218000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1002400801200480
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0xFF3E1C000000C1E3
-- patterns[23]: 0xEFDF00000000F3E7
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x82050A142850A041
-- patterns[27]: 0xBE80A858AB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0x00FF00FF00FF00FF
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0x8822880000000000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFFFF4040FFFF0808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x635D122B
----- HyperTalk script -----
-------------------------------------------------------------------
HyperCard Home Stack
Version J1-2.2

Copyright 1987-1991,1993-1994 by Apple Computer, Inc.
All Rights Reserved.

THE MESSAGE HANDLERS USED IN THIS SCRIPT:
startUp,getHomeInfo,resume,help,hyperTalk
nav,c,b,s,mw,vw,se,ss,xy,disallowInterruption,allowInterruption
setUserLevelFive,restoreUserLevel,searchScript,
checkForMissingFonts,getStackVersion,getStackName

THE FUNCTION HANDLERS USED IN THIS SCRIPT:
lastHCItem,checkHCFont

XCMD'S USED BY THIS SCRIPT:
FontExists XFCN
Form: FontExists(<font name>,<point size>)
It returns TRUE if the font/point size is installed or FALSE if not.
-------------------------------------------------------------------

-----  Startup/Resume Scripts:  ---------------------------------------------

on startUp
  -- Requires handler: getHomeInfo,checkForMissingFonts
  -- gets and sets the user's preferences
  checkForMissingFonts
  getHomeInfo
  -- audio Palette startup
  if there is a stack "Audio Help" then -- 竏†
    start using stack "Audio Help" -- 竏†
    send "startSound" to stack "Audio Help" -- 竏†
  end if
  pass startUp -- so others can use it
end startUp

on getHomeInfo
  -- Needs: User preferences card of the home stack
  -- configures HyperCard to the user specified preferences
  global Stacks,Applications,Documents,UserName
  if short name of this stack is not "Home" then -- 竏†
    lock screen
    set lockRecent to TRUE
    set lockMessages to TRUE
    push this card -- remember where we are
    go home -- will take us to the home stack in case we're not there
    put FALSE into stackIsHome
  else put TRUE into stackIsHome
  put (cd fld "User Name" of cd "User Preferences") into UserName
  set the userLevel to cd fld "User Level" of cd "User Preferences" -- hidden field
  set the powerKeys to hilite of cd btn id 3 of cd "User Preferences" -- Power Keys
  set the textArrows to hilite of cd btn id 2 of cd "User Preferences" -- Arrow keys in text
  set the blindTyping to hilite of cd btn id 1 of cd "User Preferences" -- Blind Typing
  -- load the search path globals
  put bg fld "Paths" of cd "Stacks" of bg "Paths" into Stacks
  put bg fld "Paths" of cd "Applications" of bg "Paths" into Applications
  put bg fld "Paths" of cd "Documents" of bg "Paths" into Documents
  if not stackIsHome then
    pop card -- return to where we were
    set lockRecent to FALSE -- clean up for exit
    set lockMessages to FALSE
    unlock screen
  end if
end getHomeInfo

on resume
  -- Requires handler: getHomeInfo
  -- gets and sets user preferences upon returning
  getHomeInfo
  pass resume -- so others can use it
end resume

-----  Help Scripts:  --------------------------------------------

on help theTopic
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "help <topic>" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ駅ﾃ嘉｣ﾃ益ﾃ厩ﾃ運ﾃ叡ﾃ丑 (HyperCard Help) ﾃ‡ﾃƒ <topic> ﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ 竅„ﾃｬﾃ†ﾃ‡竏妥‡ﾃ暗③
  put "HyperCard Help" into theStack -- 竏†
  if ":" & theStack & RETURN is in the stacks then
    if the longWindowTitles
    then show window line (the number of lines of char 1 to offset(":" & theStack & RETURN, the stacks) of the stacks) of the stacks
  else show window theStack
else
  go to stack theStack in a new window -- try in a new window
  if the result = "Cancel" then exit to hyperCard
  else if the result is not empty then go to stack theStack
end if
if the result is empty then findInTitle theTopic -- in the help stack
end help

on hyperTalk theTopic
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "hyperTalk <topic>" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- HyperTalk ﾃ嘉､ﾃ液ﾃ院ﾃ嘉･ﾃ嘉ｬﾃ厩ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃƒ <topic> ﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ 竅„ﾃｬﾃ†ﾃ‡竏妥‡ﾃ暗③
  put "HyperTalk Reference" into theStack
  if ":" & theStack & RETURN is in the stacks then
    if the longWindowTitles
    then show window line (the number of lines of char 1 to offset(":" & theStack & RETURN, the stacks) of the stacks) of the stacks
  else show window theStack
else
  go to stack theStack in a new window -- try in a new window
  if the result = "Cancel" then exit to hyperCard
  else if the result is not empty then go to stack theStack
end if
if the result is empty then findInTitle theTopic -- in the help stack
end hyperTalk

-----  Utility Scripts:  --------------------------------------------

on nav
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "nav" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ永ﾃ詠ﾃ渦ﾃ…[ﾃ運ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃ‡邃｢ﾃｩgﾃ‡ﾂｶﾃ‡ﾃ暗③
  -- Requires XCMD: palette "Navigator"
  palette "Navigator"
end nav

on c
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "c" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ雨ﾃ…[ﾃ栄ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③
  -- Requires handlers: setUserLevelFive,restoreUserLevel
  put the tool into saveTool
  choose browse tool
  setUserLevelFive -- so the menu item will be there
  doMenu "Card Info..."
  restoreUserLevel
  choose saveTool
end c

on b
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "b" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ頴ﾃ叡ﾃ丑ﾃ碓ﾃ嘉｢ﾃ右ﾃ嘉ｬﾃ栄ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③
  -- Requires handlers: setUserLevelFive,restoreUserLevel
  put the tool into saveTool
  choose browse tool
  setUserLevelFive -- so the menu item will be there
  doMenu "Bkgnd Info..."
  restoreUserLevel
  choose saveTool
end b

on s
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "s" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③
  -- Requires handlers: setUserLevelFive,restoreUserLevel
  put the tool into saveTool
  choose browse tool
  setUserLevelFive -- so the menu item will be there
  doMenu "Stack Info..."
  restoreUserLevel
  choose saveTool
end s

on mw
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "mw" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃｯ¥ﾃｩﾂｶﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③
  -- Requires XWindow: Message Watcher
  show window "Message Watcher"
end mw

on vw
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "vw" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃｯﾅ禿ｪﾃｮﾃｯ¥ﾃｩﾂｶﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③
  -- Requires XWindow: Variable Watcher
  show window "Variable Watcher"
end vw

on se
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "se" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕暗‡ﾂｴﾃ‡ﾃ暗③
  -- Requires XWindow: Script Editor
  ask "ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳" with "Osaka" -- 竏† default value
  if the result is "Cancel" or it is empty then exit se
  set scriptTextFont to it
  ask "ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃεｯ竏づｩﾃｶﾃ欝ﾃ韻ﾃ浦" with "12" -- 竏† default value
  if the result is "Cancel" or it is empty then exit se
  set scriptTextSize to it
end se

on ss pattern,stackName
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "ss" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃｫSﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｭﾃ愿‡ﾃεｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗③
  -- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ‡ﾃε‡竕暗②ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ﾃƒ
  -- ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ‡竕暗･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗③
  -- ﾃｮﾂｺﾃ､pﾃ‡ﾃε雨ﾃ運ﾃ雨ﾃ永ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②ﾃｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡邃｢
  -- ﾃ､Jﾃ‡ﾂｩﾃ‡ﾃ催‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗‡ﾃε‡竕暗ｭﾃｧﾃ 窶敕‡竏妥‡ﾃ暗③
  -- ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ‡ï｣ｿﾃｩgﾃ‡ﾂｧﾃｩﾃｻﾃ②ﾃｫOﾃ･窶榲‡邃｢ SPACE ﾃ‡窶š RETURN ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ’
  -- ﾃ｣ﾃ甘ｪﾃｿﾃ‡ﾃﾃ‡ﾃ催‡ﾎｩﾃｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｭTﾃ‡竏妥‡ﾂｻﾃ‡ﾃﾃ…sﾃｯ竏づｩﾃｶﾃｳﾃ津ｫSﾃｫﾃε…tﾃ‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡竕 ﾃ③
  -- ﾃｬﾋ凖ｱ{ﾃ･ﾃ催‡ﾃεｯ竏づｨﾃ陛‡ﾃεｳlﾃ‡窶ｦ SPACE ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ津｣ﾃ甘ｪﾃｿﾃ‡ﾃﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢
  -- ﾃｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｭTﾃ‡竏妥‡ﾂｻﾃ‡ﾃﾃ…sﾃｯ竏づｩﾃｶﾃｳﾃ津‡ﾃε ﾃ催ｯﾃｮﾃ…tﾃ‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡竕 ﾃ③
  -- Requires handler: searchScript
  searchScript pattern,stackName -- 竏† type "ss" into message box
end ss

on xy
  -- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "xy" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②
  -- ﾃ厭ﾃ右ﾃ厩ﾃ‡ﾃε ﾂ ﾃｭuﾃ‡ï｣ｿﾃｩﾂｶﾃ‡竏妥③
  -- ﾃｭﾃ愿ｩ~ﾃ‡竏妥‡ﾃ暗‡窶ｦﾃ‡ﾃ陛②ﾃ厭ﾃ右ﾃ厩ﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃ暗③
  set cursor to cross
  repeat until the mouseClick
    put the mouseLoc && "  horz:" & the mouseH && "  vert:" & the mouseV -- 竏†
  end repeat
end xy

on disallowInterruption
  -- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ﾃεｩﾂｿﾃｧsﾃ‡ï｣ｿﾃｭﾃ愿ｭfﾃ‡竕暗‡ﾂｴﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗③
  set cantAbort of this stack to TRUE
end disallowInterruption

on allowInterruption
  -- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ﾃεｩﾂｿﾃｧsﾃ‡ï｣ｿﾃｭﾃ愿ｭfﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗③
  set cantAbort of this stack to FALSE
end allowInterruption

on setUserLevelFive -- 竏† ﾃ嘉愿…[ﾃ蔚ﾃ嘉･ﾃ悦ﾃ嘉｣ﾃ‡ï｣ｿﾃ㈵ﾃ‡窶ｦﾃｪ窶ｺﾃｭﾃ凝‡竏妥‡ﾃ暗③
  global SvLvl
  put the userLevel into SvLvl
  set the userLevel to 5
end setUserLevelFive

on restoreUserLevel
  -- 竏† setUserLevelFive ﾃ‡ﾃεｩgﾃｳpﾃ･窶榲‡窶ｦﾃ嘉愿…[ﾃ蔚ﾃ嘉･ﾃ悦ﾃ嘉｣ﾃ‡ï｣ｿﾃ･竕･ﾃ‡窶ｦﾃｱïｬづ‡竏妥③
  global SvLvl
  if SvLvl is a number then set the userLevel to SvLvl
end restoreUserLevel

on searchScript pattern,stackName
  -- 竏† ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｭﾃ愿‡ﾃε‡竏妥‡笳甘‡ﾆ津‡ﾃε厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗③
  -- Requires handlers: setUserLevelFive,restoreUserLevel
  global ScriptFindString -- HyperTalk global variable
  set lockRecent to TRUE
  setUserLevelFive -- saves current level and sets level 5
  push card -- remember where we are
  if pattern is empty then
    ask "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ’" with ScriptFindString -- 竏†
    if (it is empty) or (the result is "Cancel") then exit searchScript
    put it into pattern -- otherwise use it as the search pattern
  end if
  -- put in HyperTalk global so just CMD-F in editor for easy find
  put pattern into ScriptFindString
  set lockMessages to TRUE -- avoid open messages
  if stackName is not empty then go to stack stackName
  -- Note: if stackName is empty then we search the current stack
  set cursor to busy
  -- search the stack script of the stack
  if the script of this stack contains pattern
  then edit script of this stack
  -- search the background scripts and objects of the stack
  repeat with curBkgnd = 1 to the number of bkgnds
    set cursor to busy
    go to card 1 of bkgnd curBkgnd
    if the script of this bkgnd contains pattern
    then edit script of bkgnd curBkgnd
    repeat with curBgBtn = 1 to the number of bkgnd buttons
      set cursor to busy
      if the script of bkgnd button curBgBtn contains pattern
      then edit script of bkgnd button curBgBtn
    end repeat
    repeat with curBgField = 1 to the number of bkgnd fields
      set cursor to busy
      if the script of bkgnd field curBgField contains pattern
      then edit script of bkgnd field curBgField
    end repeat
  end repeat
  -- search the card scripts and objects of the stack
  repeat with curCard = 1 to the number of cards
    set cursor to busy
    go card curCard
    if the script of this card contains pattern
    then edit script of this card
    repeat with curCdBtn = 1 to the number of card buttons
      set cursor to busy
      if the script of card button curCdBtn contains pattern
      then edit script of card button curCdBtn
    end repeat
    repeat with curCdFld = 1 to the number of card fields
      set cursor to busy
      if the script of card field curCdFld contains pattern
      then edit script of card field curCdFld
    end repeat
  end repeat
  set lockMessages to FALSE
  set lockRecent to FALSE
  pop card -- return to where we were
  restoreUserLevel -- set userLevel back to whatever it was
  answer "ﾃ‡竏妥‡笳甘‡ﾆ津‡ﾃε厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③" -- 竏†
end searchScript

function lastHCItem delim,theText
-- ﾃｯ竏づｩﾃｶﾃｳﾃ’ theText ﾃ‡ï｣ｿﾃ｣ﾃ甘ｪﾃｿﾃ‡ﾃ凝ｯ竏づｩﾃｶ delim ﾃ‡竕暗｣ﾃ甘ｪﾃｿﾃ‡ﾂ｡ﾃ‡ﾎｩﾃｨﾃ催ｧﾃ｡ﾃ②
-- ﾃｧ竕暗･窶榲‡ﾃεｧﾃ„ﾃｱ竅„ﾃ‡窶ｦﾃｫﾃ､ﾃｬﾃｱﾃ‡竏妥‡ﾃ暗ｯﾃｮﾃｯ邃｢ﾃ‡ï｣ｿﾃｯ窶佚‡竏妥③
-- ﾃ雲ﾃ疫ﾃ嘉｣ﾃ頴ﾃ韻ﾃ曳ﾃｯ竏づｩﾃｶﾃ‡ï｣ｿﾃ､窶ｹﾃ‡ïｬﾃｯ竏づｩﾃｶﾃｳﾃ津‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ津‡ﾃ陛②
-- ﾃ‡ﾂｧﾃ‡窶ｹﾃ‡竕 ﾃｬﾃ†ﾃｧﾃ湘‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗③
if delim is in theText then
  put lastHCItem(delim,char offset(delim,theText) + 1 to (the number of chars in theText) of theText) into theText
end if
return theText
end lastHCItem

-----  Font Adjustment Scripts:  ----------------------------------

function checkHCFont theFont,pointSizes
-- ﾃｩwﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾎｩﾃ欝ﾃ韻ﾃ浦ﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ System ﾃ‡窶ｦﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ’
-- ﾃ‡ﾂ｢ﾃ‡ﾃ暗‡ﾂｩﾃｭ竕､ﾃ‡笳甘②ﾃｱ竕･ﾃ‡ﾂ｢ﾃｨﾃ催ｧﾃ｡ﾃ‡ﾃ陛液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ﾃε嘉､ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｯ窶佚‡竏妥③
-- Requires XFCN: FontExists
put empty into missing
-- steps through each point size passed in
repeat with count = 1 to the number of items in pointSizes
  put item count of pointSizes into theCurrentPtSize
  if not FontExists(theFont,theCurrentPtSize) -- if can't find it
  then put theCurrentPtSize & "," after missing
end repeat
if missing is not empty then
  put theFont & SPACE before missing
  delete last char of missing
  put RETURN after missing
end if
return missing
end checkHCFont

script of stack: checkForMissingFonts (modify)
on checkForMissingFonts
  -- System ﾃ‡窶ｦﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾎｩﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘②
  -- HyperCard ﾃ‡窶ｦﾃｯKﾃｳvﾃ‡ﾂｻﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｫﾂｵﾃ‡ﾂ｡ﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾃ佚‡ﾃ催‡ﾅ津･xﾃｧﾃｪﾃ‡竏妥‡ﾃ暗③
  -- Requires handler: checkHCFont
  get checkHCFont("Courier","9,12") & checkHCFont("Geneva","10,14") & checkHCFont("Palatino","10,12,14,18,24") & checkHCFont("Helvetica","18,24") & checkHCFont("Osaka","12") & checkHCFont("ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃƒ","9,10,12,14,18,24") & checkHCFont("ﾃｭﾃ愿唄ﾃ鰻ﾃ叡ﾃ丑ﾃｫﾃƒ","9,10,12,14,18,24") -- these are fonts needed by this stack
  if it is empty then exit checkForMissingFonts
  else put it into missingFonts
  beep
  -- this dialog informs the user which fonts are missing
  answer "ﾃ ﾂｻﾃ｢竏ｫﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｯKﾃｳvﾃ‡竕暗‡竏妥③ﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & RETURN & RETURN & missingFonts
end checkForMissingFonts

-----  Data Scripts:  ----------------------------------------------

on getStackVersion
  -- add in Japan
  return "J1-2.2"
end getStackVersion

on getStackName
  -- add in Japan
  return "Lite Home"
end getStackName